Knitting Made Easy/Knitting.iso/App/Patterns.dxr/behaviors_181_Scroll Arrow Behavior.ls

Text File | 2002-04-18 | 613 b | 34 lines

property pScrollDelay, pClickedStatus, pDirection

on beginSprite me
  pScrollDelay = 10
  currentMember = the member of sprite me.spriteNum
  if member(currentMember).name contains "up" then
    pDirection = #up
  else
    pDirection = #down
  end if
end

on mouseDown me
  pClickedStatus = 1
  sendAllSprites(#scrollText, pDirection)
  startTimer()
end

on mouseLeave me
  pClickedStatus = 0
end

on mouseUp me
  pClickedStatus = 0
end

on mouseWithin me
  if pClickedStatus = 1 then
    if the mouseDown and (the timer > pScrollDelay) then
      sendAllSprites(#scrollText, pDirection)
    end if
  end if
end